
(define q (make-squeue))

(map (lambda (t)
       (squeue-insert! q t (lambda (z) (inform "q" t z))))
     '(6 23 4 1 7 4))			; => (#t #f #t #t #f #f)

(let ((e (squeue-pop! q)))
  (inform e)
  (if (not (null? e))
      ((cdr e) -1)))

(squeue-dispatch! q)
